home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_222_Easy-enter.bin < prev    next >
Text File  |  1995-11-23  |  4KB  |  114 lines
  1. ItemType: WIND
  2. Rect: 287,302,604,420
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Easy-enter
  8. Script: if objValue="Open" then┬  wsSet wdID,"bar","Max", "100"┬  findNextStock 0┬  get wsGet(wdID,"multiplier:","Hilite")┬  if it=true then┬    wsSet wdID,"mult","Disabled","false"┬    wsSet wdID,"change","Disabled", "false"┬  else┬    wsSet wdID,"mult","Disabled","true"┬    wsSet wdID,"change","Disabled", "true"┬  end if┬end if
  9. Params: i0_TopLeft┬i11_Text┬i10_Hilite
  10. Result: i6_Text┬i11_Text┬i10_Hilite
  11.  
  12. ItemType: PUSH
  13. Rect: 232,88,304,108
  14. AutoSize: FALSE
  15. Name: Enter
  16. DefaultItem: TRUE
  17. Script: get wsGet(wdID,"newprice","text")┬put it into xxx┬if (xxx=empty) or (xxx=0) then┬  alertNote("Enter a price, cancel or skip.")┬else┬  global namePrice,nameLine,realLine┬  get wsGet(wdID,"multiplier:","Hilite")┬  if it=true then┬    get wsGet(wdID,"mult","Text")┬    put it into mult┬    if mult is empty or mult is not a number then┬      put 1 into mult┬    end if┬  else┬    put 1 into mult┬  end if┬  put makeDecimal((stripit(xxx))/mult) into line realLine of fld "price"┬  get wsGet(wdID,"Stock","Text")┬  put return&it after namePrice┬  findNextStock nameLine┬end if┬
  18.  
  19. ItemType: PUSH
  20. Rect: 120,88,200,108
  21. Name: cancel
  22. CancelItem: TRUE
  23. AutoClose: TRUE
  24.  
  25. ItemType: PUSH
  26. Rect: 10,88,90,108
  27. Name: skip
  28. Script: global nameLine┬findNextStock nameLine
  29.  
  30. ItemType: TEXT
  31. Rect: 8,8,288,26
  32. TextSize: 12
  33. AutoSize: FALSE
  34. Name: Stock
  35. Text: C-Cube
  36.  
  37. ItemType: TEXT
  38. Rect: 10,124,310,156
  39. TextFont: Geneva
  40. TextSize: 10
  41. AutoSize: FALSE
  42. Name: instr
  43. Text: Enter the price either as decimals or with a space between the whole number and fraction {e.g., 67.125  or  67 1/8}.
  44.  
  45. ItemType: TEXT
  46. Rect: 50,32,150,54
  47. TextSize: 12
  48. AutoSize: FALSE
  49. Name: newprice
  50. LockText: FALSE
  51. TextAlign: Right
  52. Text: 64.000
  53.  
  54. ItemType: PUSH
  55. Rect: 285,7,307,27
  56. AutoSize: FALSE
  57. Name: ?
  58. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"0","Height")┬if it>200 then┬  wsSet wdID,"0","Height", "118"┬else┬  wsSet wdID,"0","Height", "280"┬end if┬--end mouseUp
  59.  
  60. ItemType: LBL
  61. Rect: 9,34,49,50
  62. TextFont: Geneva
  63. TextSize: 12
  64. Text: Price:
  65.  
  66. ItemType: TEXT
  67. Rect: 10,162,310,322
  68. TextFont: Geneva
  69. TextSize: 10
  70. AutoSize: FALSE
  71. Name: instr2
  72. Text: Checking ╥multiplier╙ will show the price multiplied by a factor so that you can easily compare it with your new entry. The default multiplier that appears here is set in the Preferences section. Enter a multiplier besides 1.00 (click ╥change╙) if you want the price displayed to be a multiple of the ╥standard╙ price (e.g., if you enter cents rather than dollars, set the multiplier to be 100 to convert from standard ╥dollar╙ format). The price will be converted back to ╥standard╙ format for storage in the stack.
  73.  
  74. ItemType: CHK
  75. Rect: 171,34,250,47
  76. TextFont: Geneva
  77. TextSize: 10
  78. Name: multiplier:
  79. Script: get wsGet(wdID,"mult","Text")┬put it into mm┬get wsGet(wdID,"newprice","Text")┬put it into thePrice┬if thePrice¡empty then┬  get wsGet(wdID,"multiplier:","Hilite")┬  put it into hh┬  set numberFormat to "0.000"┬  if hh=true then┬    wsSet wdID,"newprice","Text",thePrice*mm┬    wsSet wdID,"mult","Disabled","FALSE"┬    wsSet wdID,"change","Disabled","FALSE"┬  else┬    wsSet wdID,"newprice","Text",thePrice/mm┬    wsSet wdID,"mult","Disabled", "true"┬    wsSet wdID,"change","Disabled", "true"┬  end if┬  wsSet wdID,"newprice","Selection", "0,10"┬end if
  80.  
  81. ItemType: TEXT
  82. Rect: 250,34,305,47
  83. TextFont: Geneva
  84. TextSize: 10
  85. AutoSize: FALSE
  86. Disabled: TRUE
  87. Name: mult
  88. Text: 1.00
  89.  
  90. ItemType: PUSH
  91. Rect: 248,51,284,67
  92. TextFont: Geneva
  93. TextSize: 9
  94. AutoSize: FALSE
  95. Disabled: TRUE
  96. Name: change
  97. Script: get wsGet(wdID,"mult","Text")┬put it into oldM┬if oldM=empty or oldM=0 then put "1.00" into oldM┬put windowScript("New multiplier",wstl(200,200),oldM) into rr┬if line 1 of rr="OK" then┬  put line 2 of rr into mm┬  set the numberFormat to "0"┬  if mm<1000 then set the numberFormat to "0.00"┬  if mm<1 then set the numberFormat to "0.0000"┬  add 0 to mm┬  put "Easy-enter" into wdID --Ñ┬  wsSet wdID,"mult","Text",mm┬  get wsGet(wdID,"newPrice","Text")┬  put it into thePrice┬  if thePrice¡empty then┬    set numberFormat to "0.000"┬    wsSet wdID,"newprice","Text",(thePrice*mm/oldM)┬    wsSet wdID,"newprice","Selection","0,10"┬  end if┬end if
  98.  
  99. ItemType: TEXT
  100. Rect: 5,89,53,105
  101. Visible: FALSE
  102. Name: storedPrice
  103. Text: 15.020
  104.  
  105. ItemType: CNTL
  106. Rect: 8,0,308,4
  107. AutoSize: FALSE
  108. Name: bar
  109. Style: 320
  110. Min: 0
  111. Max: 100
  112. Value: 6
  113. Step: 1
  114. Leap: 10